home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / giochi / hf1.lha / Main / NewVaiheet.Amos / NewVaiheet.amosSourceCode
AMOS Source Code  |  1993-03-08  |  1KB  |  56 lines
  1. Set Buffer 1
  2. Set Stack 1
  3.  
  4. Assign "CurrentDisk:" To "Hf1:"
  5. Load "Hf1:Main/Valkoninzat-lr.abk"
  6. Reserve As Data 11,20
  7.  
  8. Poke Start(11),1
  9. Poke Start(11)+1,1
  10. Poke Start(11)+2,0
  11.  
  12. ALUSTA:
  13. Prun "hf1:Main/Alotus.amos"
  14. Prun "hf1:Main/KarateGang.Amos"
  15. If Peek(Start(11)+2)>0 Then Goto LOOSER
  16. Poke Start(11)+3,1
  17. If Not Exist("HF2:")
  18.    Prun "CurrentDisk:DiskinVaihto.Amos"
  19. End If 
  20. Assign "CurrentDisk:" To "Hf2:"
  21. Prun "HF2:Tunnel/Tunnel.Amos"
  22. If Peek(Start(11)+2)>0 Then Goto LOOSER
  23. Prun "HF2:Main/Keppi.Amos"
  24. If Peek(Start(11)+2)>0 Then Goto LOOSER
  25. Prun "HF2:Main/Karpaasi.Amos"
  26. If Peek(Start(11)+2)>0 Then Goto LOOSER
  27. Poke Start(11)+3,2
  28. Prun "HF2:Tunnel/Tunnel.Amos"
  29. If Peek(Start(11)+2)>0 Then Goto LOOSER
  30. If Not Exist("HF3:")
  31.    Poke Start(11)+4,3
  32.    Prun "CurrentDisk:DiskinVaihto.Amos"
  33. End If 
  34. Assign "CurrentDisk:" To "Hf3:"
  35. Prun "HF3:Main/Heitto.Amos"
  36. If Peek(Start(11)+2)>0 Then Goto LOOSER
  37. Prun "HF3:R�mpytys/R�mpytys.Amos"
  38. If Peek(Start(11)+2)>0 Then Goto LOOSER
  39. Prun "HF3:Main/Dragon.Amos"
  40. If Peek(Start(11)+2)>0 Then Goto LOOSER
  41. Prun "HF3:Main/Lopetus.Amos"
  42. If Not Exist("HF1:")
  43.    Prun "CurrentDisk:DiskinVaihto.Amos"
  44. End If 
  45. Assign "CurrentDisk:" To "hf1:"
  46. Goto ALUSTA
  47.  
  48. LOOSER:
  49. If Not Exist("HF1:")
  50.    Poke Start(11)+4,1
  51.    Prun "CurrentDisk:DiskinVaihto.Amos"
  52. End If 
  53. Assign "CurrentDisk:" To "HF1:"
  54. If Peek(Start(11)+2)=2 Then Goto ALUSTA
  55. Prun "HF1:GameOver.amos"
  56. Goto ALUSTA